home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / MILLEBORNE.ARC / MILLE BORNE / RB (.txt)
Encoding:
Commodore BASIC  |  2019-04-13  |  8.3 KB  |  378 lines
  1. 10 REM *******************************
  2. 11 REM *    CLASSIC MILLE BORNE      *
  3. 12 REM *    WRITTEN BY ROY BATTY     *
  4. 13 REM *******************************
  5. 20 IFA=0THENA=1:LOAD"MILLE MOD1",8,8
  6. 30 IFA=1THENA=2:LOAD"MILLE MOD2",8,8
  7. 40 PRINT"[147]":SYS49152
  8. 50 PRINT"[147][154]"
  9. 55 SYS17600,19200,3,0
  10. 60 V=53248:POKE2040,185:POKE2041,185
  11. 70 FORI=0TO5:POKE2042+I,189:NEXT
  12. 80 POKEV,90:POKEV+2,254
  13. 90 POKEV+1,66:POKEV+3,66
  14. 100 POKEV+4,56:POKEV+6,104:POKEV+8,152:POKEV+10,216:POKEV+12,8:POKEV+14,56
  15. 110 FORI=5TO15STEP2:POKEV+I,56:NEXT
  16. 120 POKEV+16,192:POKEV+28,3:POKEV+29,252
  17. 130 POKEV+37,0:POKEV+38,6:POKEV+39,14:POKEV+40,8
  18. 140 Q$="":R$=""
  19. 150 FORI=0TO5:POKE(V+41)+I,12:NEXT
  20. 160 DIMHD(2,7):DIMCN(19):DIMCD$(19)
  21. 170 FORI=1TO19:READD:CN(I)=D:NEXT
  22. 180 DATA16,6,3,6,3,6,3,6,4,6,4,12,10,10,10,1,1,1,1
  23. 185 SD=54272
  24. 190 ZZ=RND(-TI):HD(1,1)=1:HD(2,1)=1:FORI=2TO7
  25. 192 R1=INT(RND(0)*12):IFR1=0THENR1=1:GOTO200
  26. 193 IFCN(R1)=0THEN192
  27. 194 R2=INT(RND(0)*12):IFR2=0THENR2=1:GOTO200
  28. 195 IFCN(R2)=0THEN194
  29. 200 HD(1,I)=R1:CN(R1)=CN(R1)-1:HD(2,I)=R2:CN(R2)=CN(R2)-1:NEXT
  30. 210 CD$(0)="            "
  31. 220 CD$(1)="[210][207][204][204]        "
  32. 230 CD$(2)="[211][212][207][208]        "
  33. 240 CD$(3)="[193][195][195][201][196][197][206][212]    "
  34. 250 CD$(4)="[210][197][208][193][201][210][211]     "
  35. 260 CD$(5)="[198][204][193][212] [212][201][210][197]   "
  36. 270 CD$(6)="[211][208][193][210][197] [212][201][210][197]  "
  37. 280 CD$(7)="[207][213][212] [207][198] [199][193][211]  "
  38. 290 CD$(8)="[198][201][204][204] '[197][210] [213][208] "
  39. 300 CD$(9)="[204][201][205][201][212] (50)  "
  40. 310 CD$(10)="[206][207] [204][201][205][201][212]    "
  41. 320 CD$(11)="200         "
  42. 330 CD$(12)="100         "
  43. 340 CD$(13)="75          "
  44. 350 CD$(14)="50          "
  45. 360 CD$(15)="25          "
  46. 370 CD$(16)="[210][201][199][200][212] [207][198] [215][193][217]"
  47. 380 CD$(17)="[196][210][201][214][201][206][199] [193][195][197] "
  48. 390 CD$(18)="[208][197][210][205]. [212][201][210][197][211] "
  49. 400 CD$(19)="[197][216][212][210][193] [212][193][206][203]  "
  50. 410 Z1$=LEFT$(Q$,6)+LEFT$(R$,7)
  51. 415 Z2$=LEFT$(Q$,6)+LEFT$(R$,28)
  52. 420 POKEV+21,255:A1=0:A2=0:S1=0:S2=0:K1=0:K2=0
  53. 430 W1=0:W2=0:D1=0:D2=0:P1=0:P2=0:E1=0:E2=0:T1=0:T2=0
  54. 440 PRINTLEFT$(Q$,17);LEFT$(R$,5);
  55. 450 FORI=1TO7:PRINTCD$(HD(1,I));
  56. 460 PRINT"[157][157][157][157][157][157][157][157][157][157][157][157]";
  57. 470 NEXT
  58. 480 PRINTZ1$"[152] [217][207][213] "Z2$" [205][197] [146][154]"
  59. 488 GETA$:IFA$=""THEN488
  60. 490 IFA$="P"THENGOSUB3000:GOTO530
  61. 500 IFA$="D"THENGOSUB3000:GOTO1270
  62. 510 IFA$="Q"THENSYS49801:POKEV+21,0:PRINT"[147]":RUN50
  63. 520 GOTO480
  64. 530 FORI=0TO3:POKE56157+I,1:NEXT
  65. 540 GETA$:IFA$=""THEN540
  66. 550 N=VAL(A$):IFN<1ORN>7THEN540
  67. 555 NN=HD(1,N)
  68. 560 IFNN>1THEN600
  69. 570 IFA1=0ORA1=2ORA1=4ORA1=6ORA1=8THEN1340
  70. 580 IFA1=1THENER=3:GOTO2780
  71. 590 IFA1=3ORA1=5ORA1=7THENER=5:GOTO2780
  72. 600 IFHD(1,N)>2THEN650
  73. 610 IFA2=0ORA2=4ORA2=6ORA2=8THENER=2:GOTO2780
  74. 620 IFA2=2ORA2=3ORA2=5ORA2=7THENER=6:GOTO2780
  75. 630 IFW2=1THENER=4:GOTO2780
  76. 640 GOTO1370
  77. 650 IFNN>3THEN700
  78. 660 IFA2=0THENER=2:GOTO2780
  79. 670 IFA2=5ORA2=7THENER=6:GOTO2780
  80. 680 IFD2=1THENER=4:GOTO2780
  81. 690 GOTO1400
  82. 700 IFNN>4THEN730
  83. 710 IFA1<>3THENER=3:GOTO2780
  84. 720 GOTO1430
  85. 730 IFNN>5THEN790
  86. 740 IFA2=0THENER=2:GOTO2780
  87. 750 IFA2=3ORA2=7THENER=6:GOTO2780
  88. 760 IFP2THENER=4:GOTO2780
  89. 770 IFA2=2ORA2=4ORA2=6ORA2=8THENER=2:GOTO2780
  90. 780 GOTO 1460
  91. 790 IFNN>6THEN820
  92. 800 IFA1<>5THENER=3:GOTO2780
  93. 810 GOTO 1490
  94. 820 IFNN>7THEN870
  95. 830 IFA2<>1THENER=2:GOTO2780
  96. 840 IFA2=2ORA2=3ORA2=5ORA2=7THENER=6:GOTO2780
  97. 850 IFE2THENER=4:GOTO2780
  98. 860 GOTO 1520
  99. 870 IFNN>8THEN900
  100. 880 IFA1<>7THENER=3:GOTO2780
  101. 890 GOTO 1550
  102. 900 IFNN>9THEN940
  103. 910 IFA2=9THENER=6:GOTO2780
  104. 920 IFW2THENER=4:GOTO2780
  105. 930 GOTO 1580
  106. 940 IFNN>10THEN970
  107. 950 IFS1=0THENER=3:GOTO2780
  108. 960 GOTO 1610
  109. 970 IFNN>11THEN1010
  110. 980 IFA1<>1THENER=1:GOTO2780
  111. 990 IFS1THENER=8:GOTO2780
  112. 1000 GOTO 1650
  113. 1010 IFNN>12THEN1050
  114. 1020 IFA1<>1THENER=1:GOTO2780
  115. 1030 IFS1THENER=8:GOTO2780
  116. 1040 GOTO 1650
  117. 1050 IFNN>13THEN1090
  118. 1060 IFA1<>1THENER=1:GOTO2780
  119. 1070 IFS1THENER=8:GOTO2780
  120. 1080 GOTO 1650
  121. 1090 IFNN>14THEN1120
  122. 1100 IFA1<>1THENER=1:GOTO2780
  123. 1110 GOTO 1650
  124. 1120 IFNN>15THEN1150
  125. 1130 IFA1<>1THENER=1:GOTO2780
  126. 1140 GOTO 1650
  127. 1150 IFNN>16THEN1180
  128. 1160 IFA1=2ORS1THENK1=K1+1
  129. 1170 GOTO1660
  130. 1180 IFNN>17THEN1210
  131. 1190 IFA1=3THENK1=K1+1
  132. 1200 GOTO1680
  133. 1210 IFNN>18THEN1240
  134. 1220 IFA1=5THENK1=K1+1
  135. 1230 GOTO1700
  136. 1240 IFA1=7THENK1=K1+1
  137. 1250 GOTO1720
  138. 1260 REM HMN DSCD
  139. 1270 FORI=0TO6:POKE56200+I,1:NEXT
  140. 1280 GETA$:IFA$=""THEN1280
  141. 1290 N=VAL(A$):IFN<1ORN>7THEN1280
  142. 1300 PRINTLEFT$(Q$,16+N)""CD$(0)
  143. 1310 PRINTLEFT$(Q$,19)LEFT$(R$,24)CD$(HD(1,N))
  144. 1320 FORI=0TO6:POKE56200+I,3:NEXT:GOTO2690
  145. 1330 GOSUB3060:GOSUB3010:GOTO1350
  146. 1340 GOSUB1640
  147. 1350 GOSUB3010:PRINTCD$(1)
  148. 1360 A1=1:GOSUB3020:GOTO2690
  149. 1370 GOSUB1640
  150. 1380 GOSUB3015:PRINTCD$(2)
  151. 1390 A2=2:GOSUB3050:POKE2041,185:GOTO2690
  152. 1400 GOSUB1640
  153. 1410 GOSUB3015:PRINTCD$(3)
  154. 1420 A2=3:GOSUB3050:GOSUB3002:POKE2041,188:GOTO2690
  155. 1430 GOSUB1640
  156. 1440 GOSUB3010:PRINTCD$(4)
  157. 1450 POKE2040,185:A1=4:IFW1THEN1330
  158. 1455 GOTO2690
  159. 1460 GOSUB1640
  160. 1470 GOSUB3015:PRINTCD$(5)
  161. 1480 A2=5:GOSUB3050:GOSUB3004:POKE2041,187:GOTO2690
  162. 1490 GOSUB1640
  163. 1500 GOSUB3010:PRINTCD$(6)
  164. 1510 POKE2040,185:A1=6:IFW1THEN1330
  165. 1515 GOTO2690
  166. 1520 GOSUB1640
  167. 1530 GOSUB3015:PRINTCD$(7)
  168. 1540 A2=7:GOSUB3050:POKE2041,185:GOSUB3006:GOTO2690
  169. 1550 GOSUB1640
  170. 1560 GOSUB3010:PRINTCD$(8)
  171. 1570 A1=8:IFW1THEN1330
  172. 1575 GOTO2690
  173. 1580 GOSUB1640
  174. 1590 GOSUB3015:PRINT"[145]"CD$(9)
  175. 1600 S2=1:GOTO2690
  176. 1610 GOSUB1640
  177. 1620 PRINTLEFT$(Q$,9)LEFT$(R$,7)CD$(10)
  178. 1630 S1=0:GOTO2690
  179. 1640 PRINTLEFT$(Q$,16+N)""CD$(0):RETURN
  180. 1650 MI=VAL(CD$(HD(1,N)))
  181. 1651 IFT2+M1>1000THENER=7:GOTO2780
  182. 1653 T1=T1+MI:GOSUB1640:GOSUB3010:PRINT"[145][145]"T1
  183. 1654 IFT1=1000THEN4000
  184. 1655 GOTO2690
  185. 1660 GOSUB1640
  186. 1670 PRINTLEFT$(Q$,12)""CD$(16):W1=1
  187. 1672 IFS1THENGOSUB3010:PRINT"[145]"CD$(10):S1=0
  188. 1675 IFA1=3ORA1=5ORA1=7THEN2690
  189. 1677 GOTO1330
  190. 1680 GOSUB1640
  191. 1690 PRINTLEFT$(Q$,13)""CD$(17):D1=1
  192. 1692 IFA1=3THEN1440
  193. 1696 GOTO2690
  194. 1700 GOSUB1640
  195. 1710 PRINTLEFT$(Q$,14)""CD$(18):P1=1
  196. 1712 IFA1=5THEN1500
  197. 1716 GOTO2690
  198. 1720 GOSUB1640
  199. 1730 PRINTLEFT$(Q$,15)""CD$(19):E1=1
  200. 1731 IFA1=7THEN1560
  201. 1735 GOTO2690
  202. 1740 PRINTZ1$"[152] [217][207][213] [146]"Z2$" [205][197] [154]"
  203. 1745 GOSUB3060:GOSUB3000
  204. 1760 ONA2GOTO2070,1780,1840,1780,1920,1780,2000
  205. 1780 Z=1:GOSUB2670:IFPPTHEN1810
  206. 1800 GOTO2070
  207. 1810 GOSUB3060:GOSUB3015:PRINTCD$(1)
  208. 1820 A2=1:GOSUB2730:HD(2,PP)=NC
  209. 1830 GOSUB3030:GOTO480
  210. 1840 Z=4:GOSUB2670:IFPPTHEN1870
  211. 1860 GOTO2070
  212. 1870 GOSUB3015:PRINTCD$(4)
  213. 1880 POKE2041,185:A2=4:GOSUB2730:HD(2,PP)=NC
  214. 1885 IFW2THEN1810
  215. 1890 GOTO480
  216. 1920 Z=6:GOSUB2670:IFPPTHEN1950
  217. 1940 GOTO2070
  218. 1950 GOSUB3015:PRINTCD$(6)
  219. 1960 POKE2041,185:A2=6:GOSUB2730:HD(2,PP)=NC
  220. 1965 IFW2THEN1810
  221. 1970 GOTO480
  222. 1990 REM
  223. 2000 Z=8:GOSUB2670:IFPPTHEN2030
  224. 2020 GOTO2070
  225. 2030 GOSUB3015:PRINTCD$(8)
  226. 2040 A2=8:GOSUB2730:HD(2,PP)=NC
  227. 2045 IFW2THEN1810
  228. 2050 GOTO480
  229. 2070 IFS2<>1THEN2140
  230. 2080 Z=10:GOSUB2670:IFPPTHEN2110
  231. 2100 GOTO2140
  232. 2110 GOSUB3015:PRINT"[145]"CD$(10)
  233. 2120 S2=0:GOSUB2730:HD(2,PP)=NC
  234. 2130 GOTO480
  235. 2140 IFS1=1THEN2210
  236. 2150 Z=9:GOSUB2670:IFPPTHEN2180
  237. 2170 GOTO2210
  238. 2180 IFW1THEN2210
  239. 2185 PRINTLEFT$(Q$,9)LEFT$(R$,7);CD$(9)
  240. 2190 S1=1:GOSUB2730:HD(2,PP)=NC
  241. 2200 GOTO480
  242. 2210 IFA2<>1THEN2470
  243. 2230 FORZ=11TO15:GOSUB2670
  244. 2240 IFPP=0THEN2290
  245. 2250 MI=VAL(CD$(HD(2,PP)))
  246. 2260 IFT2+MI>1000THEN2290
  247. 2270 IFS2ANDMI>50THEN2290
  248. 2280 T2=T2+MI:GOTO2462
  249. 2290 NEXT:GOTO2470
  250. 2462 GOSUB3015:PRINT"[145][145]"T2:IFT2=1000THEN4000
  251. 2465 GOSUB2730:HD(2,PP)=NC:GOTO480
  252. 2470 Z=16:GOSUB2670:IFPPTHEN2500
  253. 2490 GOTO2510
  254. 2500 PRINTLEFT$(Q$,12)LEFT$(R$,24)CD$(16):W2=1:IFA2=2ORS2THENK2=K2+1
  255. 2501 IFS2THENGOSUB3015:PRINT"[145]"CD$(10):S2=0
  256. 2502 IFA2=3ORA2=5ORA2=7THEN2625
  257. 2503 GOSUB3015:PRINTCD$(1):A2=1:GOSUB3030
  258. 2505 GOTO2625
  259. 2510 Z=17:GOSUB2670:IFPPTHEN2540
  260. 2530 GOTO2550
  261. 2540 PRINTLEFT$(Q$,13)LEFT$(R$,24)CD$(17):D2=1:IFA2=3THENK2=K2+1
  262. 2542 IFA2=3THEN1870
  263. 2545 GOTO2625
  264. 2550 Z=18:GOSUB2670:IFPPTHEN2580
  265. 2570 GOTO2590
  266. 2580 PRINTLEFT$(Q$,14)LEFT$(R$,24)CD$(18):P2=1:IFA2=5THENK2=K2+1
  267. 2582 IFA2=5THEN1950
  268. 2585 GOTO2625
  269. 2590 Z=19:GOSUB2670:IFPPTHEN2620
  270. 2610 GOTO2628
  271. 2620 PRINTLEFT$(Q$,15)LEFT$(R$,24)CD$(19):E2=1:IFA2=7THENK2=K2+1
  272. 2622 IFA2=7THEN2030
  273. 2625 GOSUB2730:HD(2,PP)=NC:GOTO480
  274. 2628 IFA1<>1THEN2680
  275. 2630 IFW1THEN2638
  276. 2631 Z=2:GOSUB2670:IFPPTHEN2636
  277. 2634 GOTO2638
  278. 2636 GOSUB3010:PRINTCD$(2):A1=2:GOSUB3040:POKE2040,185:GOTO2625
  279. 2638 IFD1THEN2646
  280. 2639 Z=3:GOSUB2670:IFPPTHEN2644
  281. 2642 GOTO2646
  282. 2644 GOSUB3010:PRINTCD$(3):A1=3:GOSUB3040:GOSUB3002:POKE2040,188:GOTO2625
  283. 2646 IFP1THEN2654
  284. 2647 Z=5:GOSUB2670:IFPPTHEN2652
  285. 2650 GOTO2654
  286. 2652 GOSUB3010:PRINTCD$(5):A1=5:GOSUB3040:GOSUB3004:POKE2040,187:GOTO2625
  287. 2654 IFE1THEN2680
  288. 2655 Z=7:GOSUB2670:IFPPTHEN2660
  289. 2658 GOTO2680
  290. 2660 GOSUB3010:PRINTCD$(7):A1=7:GOSUB3040:GOSUB3006:POKE2040,185:GOTO2625
  291. 2670 PP=0:FORI=1TO7:IFHD(2,I)=ZTHENPP=I
  292. 2675 NEXT:RETURN
  293. 2680 GOSUB3000:FORI=0TO6:POKE56200+I,1:NEXT:GOSUB3060
  294. 2681 QQ=0:FORI=1TO7:CC=HD(2,I):IFCCTHENQQ=I
  295. 2682 NEXT:IFQQTHEN2684
  296. 2683 GOTO4000
  297. 2684 PP=0:FORI=1TO7:CC=HD(2,I)
  298. 2685 IFCC=4ORCC=6ORCC=8ORCC=10ORCC=15ORCC=14THENPP=I
  299. 2686 NEXT:IFPPTHEN2688
  300. 2687 PP=QQ
  301. 2688 PRINTLEFT$(Q$,19)LEFT$(R$,24)CD$(HD(2,PP)):GOSUB2730:HD(2,PP)=NC
  302. 2689 FORI=0TO6:POKE56200+I,3:NEXT:GOTO480
  303. 2690 FORI=0TO3:POKE56157+I,3:NEXT:GOSUB2730
  304. 2700 HD(1,N)=NC
  305. 2710 PRINTLEFT$(Q$,16+N)""CD$(NC)
  306. 2720 GOTO1740
  307. 2730 CL=0:FORI=1TO19:IFCN(I)THENCL=1
  308. 2740 NEXT:IFCLTHEN2760
  309. 2750 NC=0:RETURN
  310. 2760 ZZ=RND(-TI)
  311. 2765 NC=INT(RND(0)*21):IFNC=0ORNC>19THENNC=1
  312. 2767 IFCN(NC)=0THEN2765
  313. 2770 CN(NC)=CN(NC)-1:RETURN
  314. 2780 ONERGOSUB2830,2840,2850,2860,2870,2880,2885,2887
  315. 2790 PRINTLEFT$(Q$,24)"[154]"ER$
  316. 2800 FORF=0TO2999:NEXT
  317. 2810 PRINTLEFT$(Q$,24)"                            [146][154]"
  318. 2820 FORI=0TO3:POKE56157+I,3:NEXT:GOTO480
  319. 2830 ER$="[217][207][213] [196][207][206][212] [200][193][214][197] [193] [210][207][204][204] [195][193][210][196]...":RETURN
  320. 2840 ER$="[201] [196][207][206][212] [200][193][214][197] [193] [210][207][204][204] [195][193][210][196]...":RETURN
  321. 2850 ER$="[217][207][213] [196][207][206][212] [206][197][197][196] [212][207] [196][207] [212][200][193][212]...":RETURN
  322. 2860 ER$="[211][207][210][210][217],[160][201] [200][193][214][197] [212][200][197] [211][193][198][197][212][217]...":RETURN
  323. 2870 ER$="[211][207][210][210][217], [217][207][213] [200][193][214][197] [193] [200][193][218][193][210][196]...":RETURN
  324. 2880 ER$="[201] [193][204][210][197][193][196][217] [200][193][214][197] [193] [200][193][218][193][210][196]...":RETURN
  325. 2885 ER$="[212][200][193][212]'[211] [207][214][197][210] 1000 [205][201][204][197][211]...":RETURN
  326. 2887 ER$="[217][207][213] [200][193][214][197] [193][160][211][208][197][197][196] [204][201][205][201][212]...":RETURN
  327. 2890 FORI=0TO6:POKE56200+I,3:NEXT:STOP
  328. 3000 GOSUB3008:POKESD+4,17:FORF=0TO99:NEXT:POKESD+4,16:RETURN
  329. 3002 GOSUB3009:POKESD+4,129:FORF=0TO99:NEXT:POKESD+4,128:RETURN
  330. 3004 GOSUB3009:POKESD+4,129:POKESD+4,128:RETURN
  331. 3006 GOSUB3009:POKESD+4,17:FORI=150TO20STEP-2:POKESD+1,I
  332. 3007 FORF=0TO9:NEXT:NEXT:POKESD+4,16:RETURN
  333. 3008 POKESD+5,10:POKESD+6,74:POKESD,200:POKESD+1,50:RETURN
  334. 3009 POKESD+5,15:POKESD+6,138:POKESD,200:POKESD+1,150:RETURN
  335. 3010 PRINTLEFT$(Q$,10)"";:RETURN
  336. 3015 PRINTLEFT$(Q$,10)LEFT$(R$,27);:RETURN
  337. 3020 IFA2=1THENSYS49840:RETURN
  338. 3025 SYS49814:RETURN
  339. 3030 IFA1=1THENSYS49840:RETURN
  340. 3035 SYS49827:RETURN
  341. 3040 IFA2=1THENSYS49827:RETURN
  342. 3045 SYS49801:RETURN
  343. 3050 IFA1=1THENSYS49814:RETURN
  344. 3055 SYS49801:RETURN
  345. 3060 FORF=0TO999:NEXT:RETURN
  346. 4000 FORI=0TO19:GOSUB3000:NEXT:G1=0:G2=0
  347. 4001 R2$=LEFT$(R$,25):D$=LEFT$(Q$,8)
  348. 4005 SYS49801:POKEV+21,0:PRINT"[147]"
  349. 4010 SYS17600,19200,6,0
  350. 4020 PRINTD$R2$T2
  351. 4025 PRINTD$R$T1
  352. 4030 IFT2=1000THENPRINT"[157][157][157][157][157][157][157][157][157][157][157][157][157][157]400     0":G2=1400:G1=T1
  353. 4035 IFT1=1000THENPRINT"[157][157][157][157][157][157][157][157][157][157][157][157][157][157]0       400":G1=1400:G2=T2
  354. 4040 C2=K2*300:PRINTD$""R2$C2
  355. 4045 C1=K1*300:PRINTD$""R$C1
  356. 4047 G1=G1+C1:G2=G2+C2
  357. 4050 X1=0:IFW2THENX1=100
  358. 4051 IFD2THENX1=X1+100
  359. 4052 IFP2THENX1=X1+100
  360. 4053 IFE2THENX1=X1+100
  361. 4055 PRINTD$""R2$X1
  362. 4060 X2=0:IFW1THENX2=100
  363. 4061 IFD1THENX2=X2+100
  364. 4062 IFP1THENX2=X2+100
  365. 4063 IFE1THENX2=X2+100
  366. 4065 PRINTD$""R$X2
  367. 4067 G1=G1+X2:G2=G2+X1
  368. 4070 IFT1THEN4080
  369. 4072 PRINTD$""R1$500:G2=G2+500
  370. 4080 IFT2THEN4090
  371. 4082 PRINTD$""R$500:G1=G1+500
  372. 4090 PRINTD$""R2$G2
  373. 4095 PRINTD$""R$G1
  374. 4096 POKE198,0
  375. 4098 GETA$:IFA$=""THEN4098
  376. 4099 IFA$="Y"THENRUN50
  377. 5000 PRINT"[147]"
  378.